Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/grphwiz.dxr/00075_create graph button.ls

Text File | 2000-01-14 | 577 b | 26 lines

property ancestor, pMIAW
global gEnvironObj, gGraph

on new me, buttonName, castName, theChannel, theStageLoc, descendant
  if objectp(descendant) then
    ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  else
    ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  end if
  return me
end

on setMIAW me, miaw
  pMIAW = miaw
  return me
end

on performFunction me
  if objectp(checkData(gGraph)) then
    tell the stage
      openGraphWindow()
    end tell
  end if
  return me
end